﻿'Imports System.Data
'Imports System.Data.SqlClient

'Public Class Login2

'    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'    Dim sCnn As String
'    sCnn = "Data Source=ROXANA-PC\SQLEXPRESS; Initial Catalog=Final Web; Integrated Security=SSPI; Persist Security Info=false;"
'    Dim cn As New SqlConnection
'    cn.ConnectionString = sCnn
'    cn.Open()

'    Dim Cm As sqlcommand
'    Cm = New SqlCommand("sp_ExisteUsuario", cn)
'    Cm.CommandType = CommandType.StoredProcedure
'    Dim paramuser As SqlParameter
'    paramuser = New SqlParameter("@Usuario", SqlDbType.NVarChar, 50)
'    paramuser.Value = txtusuario.Text
'    Cm.Parameters.Add(paramuser)
'    Dim paramresultado As SqlParameter
'    paramresultado = New SqlParameter("@resultado", SqlDbType.Char, 1)
'    paramresultado.Direction = ParameterDirection.Output
'    Cm.Parameters.Add(paramresultado)
'    Cm.ExecuteReader()
'    cn.Close()
'    If paramresultado.Value = "S" Then
'        cn = New SqlConnection(sCnn)
'        cn.Open()
'        Cm = New SqlCommand("sp_ObtenerContraseña", cn)
'        Cm.CommandType = CommandType.StoredProcedure
'        paramuser = New SqlParameter("@Usuario", SqlDbType.Char, 30)
'        paramuser.Value = txtusuario.Text
'        Cm.Parameters.Add(paramuser)
'        Dim parampwd As SqlParameter = New SqlParameter("@Contraseña", SqlDbType.Char, 30)
'        parampwd.Direction = ParameterDirection.Output
'        Cm.Parameters.Add(parampwd)
'        Cm.ExecuteReader()
'        cn.Close()
'        If Trim(parampwd.Value) = txtcontraseña.Text Then
'            Session("Usuario") = txtusuario.Text
'            'Response.Redirect("Profesores.aspx")
'            Principal.Show()
'        Else
'            Session("Usuario") = ""
'            'Response.Redirect("Incorrecto.aspx?pag=0&msj=" + "¡Contraseña Incorrecta!")
'        End If
'    Else
'        Session("Usuario") = ""
'        'Response.Redirect("Incorrecto.aspx?pag=0&msj=" + "¡Usuario Incorrecto!")
'        Incorrecto.Show()
'    End If
'End Sub

'End Class